<!--#include file="lib/utf-8.asp"-->
<%
Dim conn,start_time
start_time=timer()
Set conn = Server.CreateObject("ADODB.CONNECTION")
db = "Driver={MySQL ODBC 5.1 Driver};Server=localhost;Database=rainbow_3_0; User=root;Password=admin;Option=3;"
conn.Open db


ndip=request("ndip")

sql="select * from ne where neid=(SELECT neid from rnd where dscfgnwipaddr='"&ndip&"')"

set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
groupid=rs("groupid")
nename=rs("nename")
nedescription=rs("nedescription")
' response.write(groupid)
rs.close
response.write("<table><tr><td>NDIP</td><td>"&ndip&"</td></tr>")
response.write("<tr><td>ND名称</td><td>"&nename&"</td></tr>")
response.write("<tr><td>ND位置</td><td>")
sql="select * from rgroup where groupid="&groupid
rs.open sql,conn,1,1
' response.write(rs("groupname")&",")
do while not isnull(rs("rgr_groupid"))
  sql="select * from rgroup where groupid="&rs("rgr_groupid")
  response.write(rs("groupname")&",")
  rs.close
  rs.open sql,conn,1,1
loop
response.write(rs("groupname"))
rs.close
set rs=nothing
response.write("</td></tr>")
response.write("<tr><td>备注</td><td>"&nedescription&"</td></tr></table>")

conn.close
set conn=nothing

%>
